home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Docs / tutorials.gc < prev   
Encoding:
Gui4CLI script  |  1999-11-26  |  1.3 KB  |  64 lines
  1. G4C
  2.  
  3. WINBIG 189 30 279 190 'Tutorials'
  4. wintype 11110001
  5. resinfo 8 640 256
  6.  
  7. xonload
  8.     lvuse tutorials.gc 1
  9.     lvmode SHOW                 ; change the lv mode on the fly
  10.     tut = '$$lv.rec'            ; store current choice
  11.     cutvar tut cut word 1 tut   ; because dir lvs have also the sizes etc
  12.     file = 'guis:docs/tutorials/$tut'
  13.     guiopen tutorials.gc
  14.  
  15. xonclose
  16.     guiquit tutorials.gc
  17.  
  18. xonquit
  19.     guiquit read.gc
  20.  
  21. xonRMB
  22.     status
  23.  
  24. XLISTVIEW 3 17 180 172 '' tut guis:docs/tutorials 0 DIR ; start off with dir lv
  25.     GadID 1
  26.     attr resize 0022
  27.     gadfont topaz.font 8 000
  28.     cutvar tut cut word 1 tut ; because dir lvs have also the sizes etc
  29.     file = 'guis:docs/tutorials/$tut'
  30.     update tutorials.gc 2 'Tutorial : $tut'
  31.  
  32. TEXT 2 1 275 15 "Choose a tutorial.." 40 BOX
  33.     attr resize 0020
  34.     GadID 2
  35.  
  36. XBUTTON 186 18 90 15 'Read it'
  37.     attr resize 2000
  38.     if $file > ''
  39.        update tutorials.gc 2 'Reading $tut ..'
  40.        *FILENAME = $file
  41.        guiload guis:tools/read.gc
  42.        update tutorials.gc 2 'Tutorial : $tut'
  43.     endif
  44.  
  45. XBUTTON 186 33 90 15 'Run it'
  46.     attr resize 2000
  47.     if $file > ''
  48.        update tutorials.gc 2 'Running $tut ..'
  49.        guiload $file
  50.        update tutorials.gc 2 'Tutorial : $tut'
  51.     endif
  52.  
  53. XBUTTON 186 159 90 15 'Guide..'
  54.     attr resize 2200
  55.     run 'amigaguide guis:docs/gui4cli.guide'
  56.  
  57. XBUTTON 186 174 90 15 'Quit'
  58.     attr resize 2200
  59.     guiquit tutorials.gc
  60.  
  61. ICON 195 144 guis:gui4cli
  62.     attr resize 2200
  63.  
  64.